a = 4 (slider from 1 to 15, step 1)
L = Sequence(Sequence[Sequence[Cube[(k, l, n), (k + 1, l, n), (k + 1, 1 + l, n)], k, 0, a - 1], l, 0, a - 1], n, 0, a - 1)